-- card: 5796 from stack: in.1
-- bmap block id: 0
-- flags: 4000
-- background id: 2612
-- name: ModResCopy


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=82 top=302 right=324 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put installres(XCMD,ModResCopy) into it
  if it is empty then play boing
  else answer it
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=223 top=243 right=293 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try It
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  put "Please select the source stack"
  set cursor to 4
  put filename("STAK") into source
  if source is empty then
    play oops
    hide message window
    exit mouseUp
  end if

  ask "What is the resource type?"
  if it is empty then
    play oops
    hide message window
    exit mouseup
  end if
  put quote&it&quote into ResType

  ask "What is the resource name?"
  if it is empty then
    play oops
    hide message window
    exit mouseup
  end if
  put quote&it&quote into ResName

  put "Please select a destination stack"
  put filename("STAK") into destination
  if destination is empty then
    play oops
    hide message window
    exit mouseUp
  end if

  ModResCopy source,destination,ResType,ResName

end mouseUp



-- part contents for background part 2
----- text -----
ModResCopy

-- part contents for background part 13
----- text -----
4

-- part contents for background part 3
----- text -----

This will copy a resource from one file into another file.






Thanks to:
? (If anyone knows who wrote this please pass the information on so proper credit can be given.)


-- part contents for background part 10
----- text -----
Syntax:

ModResCopy <sourceFile>,
<destinationFile>,"ResourceType",
"ResourceName"

<sourceFile> is the name of the file the resource will be copied from.
<destinationFile> is the name of the file the resource will be copied to.
"ResourceType" is the 'type' identification of the resource.
"ResourceName" is (suprise) the name of the resource to be copied.  

If "Error" is returned to the result, then there was a problem copying the resource.